inherited FormResultadoTotalPedidos: TFormResultadoTotalPedidos
  Caption = 'Total de Pedidos'
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 13
  inherited DBGridResultado: TDBGrid
    Columns = <
      item
        Expanded = False
        Visible = True
      end
      item
        Expanded = False
        Width = 74
        Visible = True
      end
      item
        Expanded = False
        Visible = True
      end>
  end
  inherited BitBtnOK: TBitBtn
    Width = 57
    ModalResult = 0
    OnClick = BitBtnOKClick
    Kind = bkCustom
  end
  object ChartResultado: TChart [7]
    Left = 8
    Top = 125
    Width = 737
    Height = 433
    BackWall.Brush.Color = clWhite
    BackWall.Brush.Style = bsClear
    LeftWall.Color = clSilver
    Title.Font.Charset = DEFAULT_CHARSET
    Title.Font.Color = clBlue
    Title.Font.Height = -13
    Title.Font.Name = 'Arial'
    Title.Font.Style = []
    Title.Text.Strings = (
      'Quantidade de Pedidos por Dia')
    Chart3DPercent = 20
    LeftAxis.GridCentered = True
    Legend.Inverted = True
    Legend.LegendStyle = lsSeries
    Legend.Visible = False
    BorderStyle = bsSingle
    TabOrder = 5
    Visible = False
    OnDblClick = ChartResultadoDblClick
    object Series1: TBarSeries
      Marks.ArrowLength = 40
      Marks.Style = smsValue
      Marks.Visible = True
      PercentFormat = '##0.# %'
      SeriesColor = clBlue
      ValueFormat = '#,##0.00###'
      BarWidthPercent = 50
      XValues.DateTime = False
      XValues.Name = 'X'
      XValues.Multiplier = 1
      XValues.Order = loAscending
      YValues.DateTime = False
      YValues.Name = 'Bar'
      YValues.Multiplier = 1
      YValues.Order = loNone
    end
    object Series2: TBarSeries
      Marks.ArrowLength = 20
      Marks.Style = smsValue
      Marks.Visible = True
      SeriesColor = clRed
      BarWidthPercent = 50
      XValues.DateTime = False
      XValues.Name = 'X'
      XValues.Multiplier = 1
      XValues.Order = loAscending
      YValues.DateTime = False
      YValues.Name = 'Bar'
      YValues.Multiplier = 1
      YValues.Order = loNone
    end
  end
  object RadioGroup1: TRadioGroup [8]
    Left = 568
    Top = 8
    Width = 201
    Height = 65
    ItemIndex = 0
    Items.Strings = (
      'Valor'
      'Quantidade de Pedidos')
    TabOrder = 6
    OnClick = RadioGroup1Click
  end
  object BitBtnGrafico: TBitBtn [9]
    Left = 296
    Top = 16
    Width = 75
    Height = 41
    TabOrder = 7
    OnClick = BitBtnGraficoClick
    Glyph.Data = {
      76020000424D7602000000000000760000002800000020000000200000000100
      0400000000000002000000000000000000001000000000000000000000000000
      8000008000000080800080000000800080008080000080808000C0C0C0000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000707770
      0707770070777007077700000000007000000700000070000007000000515070
      051507005150700515070000B0951070095107009510700951070000BB015070
      0515070051507005150700000BB0107009510700951070095107000000BB000B
      051507005150700515070000009BB0BBB051070095107009510700000051BBB0
      BB050700515070051507000000951B700BB00700951070095107000000515070
      05BB070051500B051507000000951070095BB0009510BBB05107000000515070
      0515BB00510BB0BB050700000095107009510BB090BB700BB007000000515070
      051507BB0BB07009BB070000009510700951070BBB1070500BB0000000515070
      0D9D0700B1507000000000000095107050000000951070000000000000515070
      00000000515070000000000000951070000000009D9070000000000000D9D070
      0000000500000000000000000500000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000}
  end
  inherited QueryResultado: TQuery
    AutoRefresh = True
    DatabaseName = 'DBPizza'
    SQL.Strings = (
      
        'SELECT count(id) as quantidade,movto_id_to_data(id_movimento) as' +
        ' data,Sum(vl_pedido-vl_desconto) as total'
      'FROM pedido where id_st_pedido = 3'
      'group by movto_id_to_data(id_movimento) order by 2 desc')
    object QueryResultadoquantidade: TFloatField
      FieldName = 'quantidade'
    end
    object QueryResultadodata: TDateField
      FieldName = 'data'
    end
    object QueryResultadototal: TFloatField
      FieldName = 'total'
      OnGetText = QueryResultadototalGetText
    end
  end
  object QueryAux: TQuery
    DatabaseName = 'DBPizza'
    Left = 328
    Top = 256
  end
end
